home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT ZIP Options.xpl < prev    next >
Text File  |  2000-12-13  |  1KB  |  49 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="1"
  4. "UIPATH"="Hardware\ZIP Drive"
  5. "NAME"="Windows NT Options"
  6. "OSVERSION"="01010"
  7. "VERSION"="1.0"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="Log error if ZIP driver fails loading"
  10. "DESCRIPTION 1"="If you are using the ZIP driver on Windows NT, and the drivers failed to load (for example, because you haven't turned the ZIP on), an error is logged."
  11. "DESCRIPTION 2"="Turn this option off if you don't want to have this error logged."
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"=" "
  16.  
  17.  
  18.  
  19. sP="HKLM\System\CurrentControlSet\Services\ppa3nt\"
  20.  
  21. SUB Plugin_Initialize 
  22.  If RegPathExists(sP)=false then
  23.   Disable
  24.  else
  25.   i=RegReadValue(sp&"ErrorControl")
  26.   If i=1 then SetUIElement 1,true
  27.  end if
  28. END SUB
  29.  
  30. 'Called when the Plugin should validate the Data the user has entered
  31. SUB Plugin_CheckData(ElementIndex)
  32. END SUB
  33.  
  34. 'Called when the Plugin should apply the changes
  35. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  36.  b=GetUIElement(1)
  37.  if b=true then
  38.   Call RegWriteValue(sp&"ErrorControl",1,2)
  39.  else
  40.   Call RegWriteValue(sp&"ErrorControl",0,2)
  41.  end if
  42.  
  43.  Call Restart
  44. END SUB
  45.  
  46. 'Called when the Plugin is about to be removed from memory
  47. SUB Plugin_Terminate
  48. END SUB
  49.